Public Class frmGaugeTest
  Inherits System.Windows.Forms.Form

  ' Kod generowany przez Windows Form Designer 

  Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnExit.Click
    Me.Dispose()
  End Sub


  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
                System.EventArgs) Handles MyBase.Load
    txtMax.Text = "3000"
    txtMin.Text = "0"
    txtDanger.Text = "2700"
    txtCaution.Text = "2400"
    txtCurrent.Text = "2600"
  End Sub

  Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnTest.Click
    Gauge1.Maximum = CDbl(txtMax.Text)
    Gauge1.Minimum = CDbl(txtMin.Text)
    Gauge1.Danger = CDbl(txtDanger.Text)
    Gauge1.Caution = CDbl(txtCaution.Text)
    Gauge1.Current = CDbl(txtCurrent.Text)
    Gauge1.Invalidate()
  End Sub
End Class
